home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / recipe.dxr / 00037_Full view (Last Current Recipe).ls < prev    next >
Encoding:
Text File  |  2000-03-23  |  393 b   |  22 lines
  1. property pSpr, pRollMember, pOrigMember, pDestination
  2.  
  3. on beginSprite me
  4.   pSpr = sprite(me.spriteNum)
  5.   pOrigMember = pSpr.member
  6.   pRollMember = nextMember(pOrigMember)
  7. end
  8.  
  9. on mouseEnter me
  10.   pSpr.member = pRollMember
  11. end
  12.  
  13. on mouseLeave me
  14.   pSpr.member = pOrigMember
  15. end
  16.  
  17. on mouseDown
  18.   global gLastCurrent
  19.   gLastCurrent = findActiveRecipeSlot()
  20.   goToLabel("Current" & gLastCurrent)
  21. end
  22.